home *** CD-ROM | disk | FTP | other *** search
/ Mastering Web Site Development / Microsoft Mastering Web Site Development (Microsoft) (1997).iso / Labs / StateUFinal / addclass.asp next >
Text File  |  1997-04-24  |  1KB  |  44 lines
  1. <%@ LANGUAGE="VBSCRIPT" %>
  2.  
  3. <HTML>
  4. <head>
  5. <meta name="GENERATOR" content="Microsoft Developer Studio">
  6. <meta http-equiv="Content-Type"
  7. content="text/html; charset=iso-8859-1">
  8. <title>Add a Class</title>
  9. <link rel="STYLESHEET" href="Stylesheets/Grid/Style2.css">
  10. </head>
  11.  
  12. <body background="Images/Grid/Background/Back2.jpg"
  13. bgcolor="White">
  14. <basefont face="Arial, Helvetica, sans-serif">
  15.  
  16.  
  17. <table width="100%" border="0" cellspacing="0" cellpadding="0">
  18.     <tr>
  19.         <th align="Left" nowrap bgcolor="Silver"
  20.         background="./Images/Grid/Navigation/Nav1.jpg"> <font
  21.         size="6"> Enrollment </font> </th>
  22.     </tr>
  23.     <tr>
  24.         <td bgcolor="#FFFFCC"> <font size="-1">  
  25.         Add a class</font> </td>
  26.     </tr>
  27. </table>
  28.  
  29. <% lngStudentID = session("id")
  30.    strClassID = request("classid")
  31.    set AddObj = server.createobject("Add.Obj")
  32.    errAddStudent = AddObj.Add (lngStudentID,strClassID)
  33.    if errAddStudent = 1 then
  34.     response.write "An error occurred and the class could not be added. Be sure that you are using a valid student ID and that you are not already enrolled in the class."
  35.     response.End
  36.    end if
  37. %>
  38. Student <%=lngStudentID%> has been added to class <%=strClassID%>
  39. <hr>
  40. <a href="classview.htm">Return to class registration page</a>
  41.  
  42. </BODY>
  43. </HTML>
  44.